let time x = or [((mod x 3) == 0), ((mod x 5) == 0)]

sum (filter (time) [0..999])